home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / FFT.AMOS / FFT.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1997-02-08  |  1.4 KB  |  57 lines
  1. Screen Open 0,640,256,16,$8000
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3. For A=0 To 15 : Colour A,$111*A : Next 
  4. Pen 15 : Paper 0
  5. If 1
  6. '  Wload "dh1:project/voc/ah",-10
  7.    Extension_8_0456 "ram:test",-10
  8.  
  9. '  Wload "st-04:laha",-10
  10.   ST=Start(10) : LE=Length(10)
  11. Else 
  12.   Open In 1,"cd0:ite.voices"
  13.     Reserve As Chip Work 10,120000
  14.     ST=Start(10) : LE=Length(10)
  15.      Extension_8_17A6 1 To ST,LE
  16.   Close 1
  17. End If 
  18. 'Pload "ram:fft.o",6 
  19. 'For A=0 To LE-1 
  20. '  Poke ST+A,Qsin(A*(A/400.0),Qsin(A/100,127)) 
  21. '  Poke ST+A,Qsin(A*100*(1+((A/5000) mod 7)),Qsin(A/10,127)) 
  22. '  Poke ST+A,Qsin(A*(A/400.0)+A*100*(1+((A/5000) mod 7)),Qsin(A/10,127)) 
  23. 'Next  
  24. 'Wait Key  
  25.  Extension_8_1412 1,ST,Min(LE,65534),15000
  26. Doke ST,0
  27. Reserve As Work 9,512*4
  28. SPEC=Start(9)
  29. Reserve As Work 8,512*4
  30. DELT=Start(8)
  31. Call Start(6)
  32. X=0 : S=(LE/640)+1
  33. LB=0 : UB=99999999
  34. For A=0 To LE-1023 Step S
  35.   Areg(0)=ST+A
  36.   Areg(1)=SPEC
  37.   Call Start(6)+2
  38.   For Y=0 To 223
  39.     RE= Extension_8_0BE4(SPEC+Y*4)
  40.     IM= Extension_8_0BE4(SPEC+Y*4+2)
  41. '    D=Abs(RE)+Abs(IM) 
  42.     D=Sqr(RE*RE+IM*IM)
  43. '    LB=Max(D,LB)
  44. '    UB=Min(D,UB)
  45. '    Turbo Plot X,Y,Min(Max(Ln(D)*1.5,0),15) 
  46.      Extension_8_0388 X,Y,Min( Extension_8_1366(D/8),15)
  47. '    Turbo Plot X,Y/2+128,Min(Qsqr(DD/8),15) 
  48.   Next 
  49. '  Home : Print LB,UL
  50.   For XX=0 To S-1
  51.      Extension_8_126A X, Extension_8_0BF0(ST+A+XX)/8+240
  52. '    Turbo Draw X,192 To X,Speek(ST+A+XX)/2+192,15 
  53.   Next 
  54.   Inc X
  55.   Exit If X>639
  56. Next 
  57.  Extension_8_10A8